% V20210224 - 7.7.9 icon [2]

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
title$ = GW_ADD_BAR_TITLE$("GW_ADD_ICON example")

% Add title to page.
GW_ADD_TITLEBAR(p, title$)

% Add a customized button.
earth = GW_ADD_ICON(p, "http://mougino.free.fr/tmp/earth.png", 32, 32)
GW_USE_THEME_CUSTO_ONCE("icon="+GW_ID$(earth))
GW_ADD_BUTTON(p, "Give me an E", "")

% Add a second customized button.
wind = GW_ADD_ICON(p, "http://mougino.free.fr/tmp/wind.png", 32, 32)
GW_USE_THEME_CUSTO_ONCE("icon="+GW_ID$(wind))
GW_ADD_BUTTON(p, "Give me a W", "")

% Add a third customized button.
fire = GW_ADD_ICON(p, "http://mougino.free.fr/tmp/fire.png", 32, 32)
GW_USE_THEME_CUSTO_ONCE("icon="+GW_ID$(fire))
GW_ADD_BUTTON(p, "Give me an F", "")

% Add a title.
GW_USE_THEME_CUSTO_ONCE("align=center")
GW_ADD_TITLE(p, "Earth Wind and Fire!")

% Render the page
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of GW_ADD_ICON example"